#!/usr/local/bin/perl
#
# Program to open the password file, read it in,
# print it, and close it again.

$file = 'table.txt'; # Name the file

open(INFO, ">$file"); # Open the file

print INFO "====================\n";
print INFO "i\ti * i\n";
print INFO "====================\n";
for($i = 0; $i <= 1; $i += 0.05) {
	print INFO $i, "\t", $i * $i, "\n";
}
close(INFO); # Close the file
